#kq = x - y 
#sign = 0 if z > 0

clear sign; #default is positive 
clear j;
incr y_lt_x;

#copy x to i;
while x not 0 do;
    incr i;
    incr temp;
    decr x;
end;
while temp not 0 do;
    incr x;
    decr temp;
end;


while y not 0 do;
    decr x;
    decr y;
    incr j;
end;

while x not 0 do;
    clear y_lt_x;
    incr kq;
    decr x;
end;

while y_lt_x not 0 do;
    incr sign;
    while i not 0 do;
        decr i;
        decr j;
    end;
    while j not 0 do;
        incr kq;
        decr j;
    end;
    clear y_lt_x;
end;